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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


w * 
® & 
® ® 
® ® 
® t 
® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ® 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. 5 
ie ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
* CORPORATION. * 
te ca 
® ® 
® ® 
& ® 
® * 
® * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: SYSTEM BOOTSTRAPPING 


ABSTRACT: 

THIS MODULE PERFORMS LOGICAL BLOCK I/0 FOR FILEREAD 
ENVIRONMENT: KERNEL MODE, UNMAPPED, IPL=31 
AUTHOR: RICHARD I. HUSTVEDT , CREATION DATE: 14-APR-78 
MODIFIED BY: 


v03-002 KDM0097 Kathleen >. Morse _ 09-Apr-1984 
Bias the out of range value by the initial page number. 
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: 


00 


INCLUDE FILES: 


: MACROS: 


NM—SOOONAUS WN" OVOOnNOu 


DEDEDE SE 


AX 
-ENDM MEM~FILE_CACHE 


eMACRO MEM_FILE_CACHE MEM PAGE_CNT 
-LONG MEM~PAGE~CNT-<MEM_PAGE_CNT/ 
-WORD CACRE_PAGE NUM 

“WORD <<CACRE_PAGE_CNT+3>8°C<3>> 


3 IMAGE HEADER DEFINI 
3 IMAGE Ht SYMBOL 
: IMAGE HEADER PATCH 

; DEFINE RESTART PARA 


: Define Memory Size to File Cache Parameter table entry 
j GACHE PAGE NUM. CACHE _PAGE_CNT .MAX_PAGE 


15-SEP-1984 23:41:4 AX/VMS Ma v04-00 
273-1 984 33:02:84 favors. sre BOOTIO.MAR; 1 
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0000 «PSECT YFILEREAD BYTE ,EXE 


EQUATED SYMBOLS: 


000 64 
0 65 
000 6¢ a -SBTTL RDWRTLBN - READ/WRITE LOGICAL BLOCK NUMBER 
B88 oe 3; FUNCTIONAL DESCRIPTION: 
000 5 5 THIS ROUTINE READS/WRITES N BYTES FROM/TO THE SPECIFIED 
4 4 ; LOGICAL BLOCK NUMBER OF THE VOLUME ASSIGNED TO THE SPECIFIED CHANNEL 
B56 rs 3; CALLING SEQUENCE: 
8008 f 3 CALLG ARGLIST,FILSRDWRITLBN 
O60 r 3; INPUT PARAMETERS: 
0000 79 ; CHAN(AP) s CHANNEL ASSIGNED TO THE VOLUME TO READ 
0000 80 ; LBN(AP) = ;LOGICAL BLOCK NUMBER TO READ 
0000 81; BUF ADR (AP) = sADDRESS OF BUFFER TO READ INTO 
0000 Hf 3 IOFUNC (AP) = 31/0 FUNCTION CODE 
8000 : : BYTCNT CAP) = ;NUMBER OF BYTES TO TRANSFER 
0000 85 ; IMPLICIT INPUTS: 
0000 86 ; 
0000 87 ; NONE 
0000 88 ; 
0000 89 ; OUTPUT PARAMETERS: 
0000 90 ; 
0000 91 ; RO = SYSTEM STATUS CODE 
0000 3 3 
0000 93 ; IMPLICIT OUTPUTS: 
0000 94; 
0000 95 ; NONE 
0000 96 ; 
0000 97 ; COMPLETION CODES: 
0000 98 ; 
0000 99 ; NONE 
0000 100; 
0000 101 ; SIDE EFFECTS: 
0000 19 3 
44 103 ; NONE 
000 104; 
0000 105; 
0000 106; 
309 108 : OFFSETS FROM AP 
00000004 000 109 CHAN s 4 CHANNEL TO WHICH VOLUME IS ASSIGNED 
00000008 0000 110 BN = 8 LOGICAL BLOCK NUMBER 
000000C 0000 111 BUF ADR = 12 sBUFFER ADDRESS TO READ INTO 
0000010 00 16 IOF UNC = 16 sFUNCTION CODE FOR THE Q10 
0000014 Bh HF BYTCNT = 20 ;NUMBER OF BYTES TO TRANSFER 
000 115 ;-- 
000 eT 
0 ii FILSRDWRTLBN:: 0 
04 AC 0D 119 PUSHL CHAN(AP) ; ADDRESS OF RPB 
50 +6€ d0 0 120 MOVL (SP),RO ; GET ADDRESS OF RPB 
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50 34 A0 00 0008 121 MOVL RPBSL_IOVEC(RO) .RO ; GET POINTER TO 1/0 ROUTINE VECTOR 
00 odd O00Cc 1 § PUSHL ; SET MODE TO PHYSICAL ADDRESS 

10 AC 0D QOOE 1 PUSHL feveee ; SET FUNCTION 
08 AC DD 0011 124 PUSHL LBN(AP ; LOGICAL BLOCK NUMBER 
14 AC 0D 0014 125 PUSHL BYICNT CAP) ; SET NUMBER o BYTES 
OC BC DF 0017 126 PUSHAL @BUFADR(AP) ; SET BUFFER ADDRESS 

00 8040 06 fe pale ist sete #6,a(RO)CROJ : CALL BOOTSTRAP DRIVER 
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-SBTTL BOOSCACHE_INIT = INIT FILEREAD CACHE 


ma 


T 


; Functional description: 
This routine establishes a Sestred FILEREAD cache size and 
base eddress according to the size of memory. It finds 
good conti 1Statnee es at or near the desired place and 


calls | Init routine to initialize the cache. 
ne 


The rout is further divided into two pieces: one to do 


; cache allocation, and one to do the actual mount and open. 
$ This is negeteery for VMB needs to allocate the cache long 
3 before it is ready to accept 10 to the device. 

: Calling Sequence: 

: BSBW  BOOSCACHE_INIT 
; Inputs: 

; R11 - RPB base address 

: RPBSL_PFNCNT(R11) - actual number of good pages in memory 
$ RPBSQ_ PFNMAP+4(R11) - base address of PFN bitmap 

; Implicit inputs: 

none 

Outputs: 

i 


RO-R4 altered 
FILSGQ_CACHE set up with size and address of cache 


; Implicit outputs: 
; Table of memory sizes to file cache parameters 


; : NOTE: If this table is modified, a corresponding table in VMB around 
: label MEM_TAB should be checked for consi ency. 


EM_ wenaa Ue sit 
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BOOSCACHE_INIT = INIT FILEREAD CACHE 4-SEP-1984 :02:5 BOOTS.SRCJBOOTIO.MAR; 1 (1) 
C «1833 
: | : ; BOOSCACHE_ALLOC = The piece that does the allocation. 
o's § ; Outputs: 
; ¥ ed in with size/address in blocks 
0 : ! FIL$GQ_CACHE filled i ith size/add in block 
o ca : BOOSCACHE_ALLOC:: 
55 bp C 190 POSHL RS 3 Save a register 
0000° CF C 00 191 CLRQ W*F IL$GQ_CACHE ; Assume no cache available 
50 8B AF 3 9 135 MOVAL B8*MEM_CACHE_TABLE,RO 3; Adr of memory size to cache params tbl 
51 80 4 9 193 10$ MOVQ (RO)+,R1 3; Get the next table entry 
_ o 9 132 BEQL 208 : Branch if memory too small for cache 
55 80 00 98 195 MOVL (RO)+,R5 3 Max page 
51 4C D1 +43 138 CMPL RPBSL_PFNCNT(R11),R1 : More memory than this entry? 
F 19 QOA 19 BLSS 10$ : Branch if not, get next one 
50 5 ; OAS 198 MOVZWL R2,RO : Starting relative bit cpepe) in PFNMAP 
51 52. FO 8F OA? 199 ASHL  #-16,R2,R1 : Count of bits (pages) to look for 
54 COSTCO F ef 78 OOAC 200 ASHL = #1, R1,R4 : Settle for half if can't find all 
7 10 0081 201 BSBB BOOSALLOC_PAGES : Go get the pages 
Ss et 8 BLSS : Failed 
0000'CF ¢ 7D 008 MOva Rg °F ILSEO_CACHE ; Success, record the values 
8EDO OOBA 04 208: POPL R ; Restore a register 
05 008D 05 RSB 
sa 
$3 +4 3; BOOSCACHE_INIT = Full routine to both allocate and open the cache 
OBE 210 BOOSCACHE _INIT:: 
cc 10 008 11 BS8B BOOSCACHE_ALLOC ; Allocate the cache 
OC 1g 3 Fall thru to finish 
tt 
a¢0 i 3; BOOSCACHE_OPEN = Actually mount the device and fill the cache 
O9¢ 13 BOOSCACHE_OPEN: : 
52 0000'CF 00 0c 18 MOVL W*F IL$GQ_CACHE ,R2 : Pick up size 
ee Bat 19 BEQL 10$ ; Zero Length implies none 
Ss & ¢C OC 20 SUBL #4,SP 3; Location to store channel 
50 5 D OCA 1 MOVL soko ; Address to store channel 
7E 52 9 C OCD § SUBL3 #2,R2,-(SP) ; Blocks in directory LBN cache 
89. p 0D1 PUSHL  $*#<<1024-F ILSC SIZE>/FILSC_DIR_SIZE> ; No. of dir cache entries 
7E 004° CF 9 0D3 4 ASHL #9,W*FIL$GQ_CACRE+4,-(SP) ;"Byté address from page number 
; 9 7 D9 5 ASHL #9,R2,-(SP) : Size of cache in bytes 
f D4 DD $ CLRL -(§P) 3 Null device name string descriptor 
5 OD DF PUSHL RO ; Address to store channel 
0000' CF 06 FB OQ0E1 8 CALLS #6,W*FILSCACHE_INIT 3: Init the FIL ore its cache 
E6 3; descriptor returned in FILS$GQ_CACHE 
5E 04 £9 4} ? ADOL #4,SP 3: Clean off channel 
0 OE 10$: RSB 
AK 
5A ¢ 3 BOOSALLOC_PAGES - Find a run of contiguous, good pages 
EA § 3: Inputs: 
EA 3 RO = Page to start at 
EA 8 ; Ri = Number of pages needed 
3 - Number w ng to settle 
EA 9 R4 = Numb illing t ttle for 
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BOOSCACHE. INIT - INIT Fist; CACHE 4-S sat} 7 33:33:82 Yeoots sre BOOTIO.MAR;1 . 
EA 9 3 RS = Maximum page 
EA 41 ; Outputs: 
EA tg 3 CC = Status (BLSS to an error routine) 
EA 45; = Number found 
5A te ; RS = Starting page number 
EA 46 BOOSALLOC_PAGES:: 
_— 17 9 EA 4 ROTL #<32-9>,R11,R2 3; PFN of the RPB 
2 C EE 48 ADDL R2,R 3; Convert relative PFN to absolute 
OF 1 49 MOVL RO,R ; Make a copy of starting bit 
5 C OFS 50 ADDL R2,R 3; Convert max relative PFN to absolute 
» F D1 me : 30$ CMPL R5,RO 3 Less than max page 
1E 19 OOFA Biss 508 : No, failure 
Op 48 BB OSS E OFC 25 BBS RO, @RPBSQ_PFNMAP+4(R11),408 ; Branch if this is a good page 
52 ? é C ist 54 SUBL3 R3,R0,R2 3; Count of bits (pages) found 
4 Di 0105 55 CMPL R2,R4 : Found enough? 
10 18 108 36 BGEQ 508 : Branch if yes 
7s FP 1 C1 O10A 5 ADDL3 #1,R0,R3 : No, reset starting base 
0 b6 10 58 40$: INCL RO 3; Next bit (page) 
—€4 51 =F5 011 59 SOBGTR R1,30$ : Branch if more to check 
sf 6®hCSSti‘éKkSOCSTT 60 SUBL3 R3,R0,R2 : Count of bits (pages) found 
54 52 01 0117 61 CMPL R2,R4 ; Found enough? 
0S OIA 62 50$: RSB 3; Return (Status in CC) 
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«SBTTL BOOSIMAGE_ATT = Get image attributes from image header 
Functional Description: 

BOOSIMAGE_ATT returns to the caller some attributes of the image 
Calling Sequence: 

BSBW BOOS IMAGE _ATT 
Inputs: 


Re = Size of file in blocks 
R53 = Address of image header block (first one only) 


4" 


Outputs: 


Ri = Number of image header blocks at the front of the image 
R2 = Size of suas in blocks excluding the blocks at the end 
containing local symbols, global symbols, or patch text 


BOOSIMAGE _ATT:: 
MOVZWL IHDSW_SYMDBGOFF(R3),RO ; ANY SYMBOL TABLE INFORMATION? 
rete 0$ ; BRANCH IF NOT 


a a td ad a a od oa a aD 
OOO 009000000 09 09 0D 09 0D C8 INI 


SOOOCOSOOCOCOSOSSOOOOSOSSOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


0 
4 
: 5 
3 é 9 ROVA IHS$SL_DSTVBN(RO)CR3I,R1 : ADR OF 181 VBN IN DEBUG SYMBOL TABLE 
5104 A045 9 é MOVAB IHS$L_GSTVBN(RO)CR3],R1 : ADR OF 181 VBN IN GLOBAL SYMBOL TABLE 
50 (08 AS 3¢ 94 20$:  MOVZWL JHDSW_PATCHOFF(R3),RO : ANY PATCH CONTROL INFORMATION? 
07 «1 95 BEQL : BRANCH IF 
5120 A04s 9 36 MOVAB IHPSL_PATCOMTXT(RO)CR3],R1 i ADR OF 1ST VBN OF PATCH COMMAND TEXT 
51 10A 9A 38 30$:  MOVZBL IHDSB_HDRBLKCNT(R3),R1 : GET IMAGE HEADER BLOCK COUNT 
40 00 ; 
49 o1 : SEE If VBN IS NON ZERO AND THEN IF IT IS SMALLER THAN THE CURRENT SMALLEST 
51 61 01 ¢3 to 08 40s:  SuBL3  #1,(R1),R1 ; FETCH VBN - 1 
08 19 0144 304 BLSS o$ : BRANCH IF NO VBN IS PRESENT 
51 52 01 46 05 CMPL Re R1 : IS IT SMALLER THAN THE CURRENT ONE 
g 15 014 06 BLEQ 508 : BRANCH IF NOT 
52. 51 v0 48 0 MOVL R1,R2 : YES, USE IT 
4E 8 50$:  RSB 
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SYSSASSIGN, Dummy assign device system s 4=-SEP-19 :02:5 BOOTS .SRCJBOOTIO.MAR; 1 
Hy } -SBTTL SYSSASSIGN, Dummy assign device system service 
14F 12 3++ 
14F 13; 
Pe 13 3 Functional description: 
14F 1 : SYSSASSIGN is a dummy routine to satisfy the requirements of 
Ver } 3 FILSOPENF ILE. 
14 19 : Inputs: 
14k : : CHAN(AP) - address at which to return channel 
Py Z : Implicit inputs: 
14 3 ; The Label BOOSGL_RPBBASE contains the physical address of the RPB. 
14F 7 : Outputs: 
14F $ 
bP 4 3 RO = success status code 
14 1 : Implicit outputs: 
14F 5 : The channel returned is not a channel. It is instead the base 
14F 4; address of the RPB. 
14F > 
14F § j-- 
14F 

00000008 i- CHAN = 8 
14F 40 SYSSASSIGN:: 3; Dummy system service. 
0000 Vo ry -WORD 0 
08 BC OO000'CF DO 0151 rk MOVL W*BOOSGL RPBBASE ,@CHAN(AP) ; Store RPB address as channel. 
50 00° oO 0157 44 MOVL S*#SS$_NORMAL ,RO ; Return success status. 
04 O15A 45 RET 3; Return to caller. 
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} : -SBTTL Common Globals for VMB and SYSBOOT 
158 34 The following globals are common to VNB and SYSBOOT and are 
} 4 ; : defined here to avoid repli cate definitions. 
158 FiLsGT _DDSTRING:: : Default directory string. 

5d 45 58 45 53 59 53 5B 00" 0138 5 SASCIC. /LSYSEXEI/ 4 . 
164 2¢ FILSGT_DDDEV:: ; Default device name 

00 0164 5 -BYTE 0 3 Null ASCIC string 

165 2$ 
165 5 ~END 
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OPS MOVD = 7 | 
OPS_MOVF = 5 
OPS _MOVG = FD 
OPS_MOVH = FD | 
OPS_MOVP 2 4 
OPS_MOVTC = E 
OP$_MOVTUC = F 
_MULD s 4 
AULD = 65 
OPS_MULF = B88 44 
_MULF = 00 45 
OPS_MULG = 44FD 
OP$_MULG = 45FD 
OP$_MULH = 000064FD 
OPS_MULH = 00 S44 
OP$_MULP = 00 Os 
OP$_POLYD = 00000 
OP$_POL YF = 4 5 
OP$_POLYG = Q000055FD 
OP$_POLYH = 000075FD 
OP$_SCANC = 0000 bea 
OP$_SKPC = 000000 
OP$_SPANC = 0000002 
OP$_ SUBD = 0000006 
OP$_ SUBD = $4449 
OP$_SUBF = 00000 2g 
OP$_SUBF = +44 4 
OP$_SUBG = 000042FD 
OP$_ SUBG = 000043FD 
OP$_SUBH = 000062FD 
OP$_SUBH = 000065FD 
OP$_SUBP4 = tit 
OP$_SUBP6 = 00000 
OP$_TSTD = 00000 
OPS_TSTF = 0000005 
OP$_TSTG = 000053FD 
OP$_TSTH = 000073FD 
RPBSL_IOVE = 00000034 
RPBSL_PFNCNT = 0000004C 
$Q_PFNMAP = 00000044 
SS$_NORMAL eeeeeeee § 68 
SYSSASSIGN 0000014F RG 0 
-omoe mma eroaaaee nam + 
; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
» 8 « 00000000 <( -)») 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$$ 0000000 ( u 8 ( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
YF ILEREAD 0000165 (¢ 357.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC BYTE 
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! Performance indicators ! 


barman n en eaeanancannoawe } 


Phase Page faults CPU Time TT Time 
Initialization 30 00: ‘8 a 31 
ey processing \ : + 4 0: ae 
Puss ¢ table sort * 0: : 73 ; ot: ‘ 
Symbol table output 1 f : 43 0:09: :00-¢0 
Psect synopsis output 1 :00:00. $ 
Cross-reference output 0 0:00:00.00 00: 

Assembler run totals 644 0:00:16.80 00: 


4919 bytes pages) of virtual memory were used to buffer the intermediate code 

There were 40 pages of symbol table space allocated to hold 559 non-local and 10 local symbols. 
3109 source lines were read in Pass 1, producing 14 object records in Pass 2. 

139 pages of virtual memory were used to define 138 macros. 


¢eameamsmrserene seo nnccewceawco } 


! Macro Library statistics ! 


¢uaose ss enestrecese som eaesoaeat 


| 

| 
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rking s (3) Limit was 1500 pages. 
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Macro Library name Macros defined 
-8255$DUA28: poots.6 J ypcets Les 1 0 
“$255$DUA28: (SYS.0B B;1 4 

$255$DUA28: Svat IBISTARLET. Fale: 2 4 

TOTALS (all Libraries) 8 


613 GETS were required to define 8 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:B00T10/0BJ=08J$:B00TIO MASD$: CEMULAT.SRCJMISSING/UPDATE=(MASD$: CEMULAT .ENHJMISSING) +MASD$: CBOOTS.SRCJBOOTIO/UPDATE=(M 
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